home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / PB_Crazy_Circles.AMOS / PB_Crazy_Circles.amosSourceCode
AMOS Source Code  |  1995-12-30  |  396b  |  26 lines
  1. '
  2. ' Crazy Circles By Paul Burkey Please Wait and stare!!!! 
  3. '
  4. '
  5. Auto View Off 
  6. For A=0 To 7
  7.    Screen Open A,320,300,2,LORES : Hide On 
  8.    Curs Off 
  9.    Cls 0
  10.    For B=2 To 200 Step 8
  11.       Circle 160,130,B+A
  12.    Next B
  13.    View 
  14. Next A
  15. Auto View On 
  16. View 
  17. OO=5
  18. T=0
  19. Do 
  20.    For A=7 To 0 Step -1
  21.       Screen To Front A
  22.       Wait OO
  23.    Next A
  24.    Add T,1,1 To 5
  25.    If T=5 Then If OO>1 Then Dec OO
  26. Loop